﻿Imports EIQ_AIモデル作成_1
Imports Tera計算EIQAI

Public Class Tera計算AIMenuF
    Private Sub Tera計算AIMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        著作L.Text = 著作

    End Sub
    Private Sub EIQ_AIモデル作成Bt_Click(sender As Object, e As EventArgs) Handles EIQ_AIモデル作成Bt.Click
        'E0_MenuFフォームを開く
        Dim form As New E0_MenuF
        'form.Tera計算EIQAI_Tc.SelectedTab = form.AI予測計算Tp
        form.Show()
    End Sub
    Private Sub Tera計算EIQAIBt_Click(sender As Object, e As EventArgs) Handles Tera計算EIQAIBt.Click
        'Tera計算EIQAIフォームを開く
        Dim form As New Tera計算EIQAIFrom
        'form.Tera計算EIQAI_Tc.SelectedTab = form.AI予測計算Tp
        form.Show()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Try
            Dim psi As New System.Diagnostics.ProcessStartInfo("https://ai-jp.eiqtera.com/") With {.UseShellExecute = True}
            System.Diagnostics.Process.Start(psi)
            LinkLabel1.LinkVisited = True
        Catch ex As Exception
            MessageBox.Show("リンクを開けませんでした: " & ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Try
            Dim psi As New System.Diagnostics.ProcessStartInfo("https://ai-jp.eiqtera.com/eiq_ai_model_creation_jp.html") With {.UseShellExecute = True}
            System.Diagnostics.Process.Start(psi)
            LinkLabel2.LinkVisited = True
        Catch ex As Exception
            MessageBox.Show("リンクを開けませんでした: " & ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Try
            Dim psi As New System.Diagnostics.ProcessStartInfo("https://ai-jp.eiqtera.com/tera_calculation_eiqai_jp.html") With {.UseShellExecute = True}
            System.Diagnostics.Process.Start(psi)
            LinkLabel3.LinkVisited = True
        Catch ex As Exception
            MessageBox.Show("リンクを開けませんでした: " & ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class
